* simple.el (process-file): Overwrite stderr file, if exists.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 906c507e7573365dda3ebc6e256d7694ebc4926e..3625dcc595334c976eb22e6c0d9d90f4024a24af 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-12-21  Michael Albinus  <michael.albinus@gmx.de>
+
+       * simple.el (process-file): Overwrite stderr file, if exists.
+
 2012-12-21  Daiki Ueno  <ueno@gnu.org>
 
        * epg.el (epg--start): Print GPG_AGENT_INFO in the debug buffer.

diff --git a/lisp/simple.el b/lisp/simple.el
index c0ba5477b56bf0a3d2c4d8b1cce9f7d98a03861a..635d1b0cda3c5f4454b0253a2002d5366ad70caf 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -2804,7 +2804,7 @@ value passed."
                      (or lc infile)
                      (if stderr-file (list (car buffer) stderr-file) buffer)
                      display args)
-            (when stderr-file (copy-file stderr-file (cadr buffer)))))
+            (when stderr-file (copy-file stderr-file (cadr buffer) t))))
       (when stderr-file (delete-file stderr-file))
       (when lc (delete-file lc)))))